Help for this page

Select Code to Download


  1. or download this
    $from =~ /^([^@]+)@/;
    $from = $1;
    
  2. or download this
    $from =~ s/@.*//;