11/10   perl question: I want to bind the result of a pattern match on one
        variable to another variable.  I constantly find myself doing something
        like:
                $myvar1 = $long_string;
                $myvar1 =~ s/.*(regex.*)/$1/g;
        and it seems silly to do an assignment followed by a modification.
        Am I missing something?  Is there a way to do this in a single step?
        \_ Not a good way.  One of the things ruby fixes and that they're fixing
           in Perl6. You can do: ($myvar1 = $long_string) =~ s/.*(regex.*)/$1/g;
           but since you're being a good little perler and using strict, you'll
           still need two lines since you need my $myvar1; in there somewhere
                                \_ (my $myvar1 = $long_string) ... ?
           Now mconst will explain how there's an even better way.
           --dbushong
        \_ Not to nick pick but what's wrong with two lines? There's a fine
           line between convenience and readability. In either case regex in
           Perl is 100X easier to code and read than Java/STL/Python.
        \_ there's always the match, then assign...
           $long_string =~ /.*(regex.*)/;
           $myvar1 = $1;