Help for this page

Select Code to Download


  1. or download this
    $var =~ /^\.\w+\s+(\w+)\s+./;
$var = $1;
  2. or download this
    $var =~ s/^(\.\w+\s+)(\w+)(\s+.+)/$2/;