in reply to Removing data from a string with Regex

In true TMTOWTDI style you could also use that which is below, although it is lacking a bit in the optimization.
$from =~ /@/;
$from = $`;

[download]
jclovs

Replies are listed 'Best First'.
Re: Removing data from a string with Regex
by s0ttle (Scribe) on Nov 15, 2001 at 02:52 UTC
    You have a common precedence issue. Change the following line. 
    open FILE, $filename || die $!;

    [download]
    to 
    open FILE, $filename or die $!;

    [download]
    or if you really want to use || 
    open(FILE,$filename) || die $!;

    [download]
    also it wouldn't hurt to be more verbose: 
    die "Could not open $filename: $!\n";

    [download]
    UPDATE: The usage of the \g modifier is for multiple matching,substituting,etc. you don't need it if you know what you are searching for only occurs once as is the case:

    The original value of $from is "--from me@mydomain.com \"

    EXAMPLE:
    $str ='abcd';
$str =~s/a//g; # \g unnecessary
##
$str = 'abacad';
$str =~s/a//g; # more appropriate

    [download]
    It wouldn't hurt to also have a look at perlop

    -tengo mas que aprender
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom