Help for this page

Select Code to Download


  1. or download this
    $a="test string x  x\nFeb  1 09:12:33  (";
if ($a =~ /^\w{3}\s\s\d/m)  { # /^Feb  1/
...
}
#<x  x
Feb  1 09:12:33  (>
  2. or download this
    my $var = 'testing';
$_ = 'In this string we are $var the "e" modifier.';
...
print;

>In this string we are testing the "e" modifier.
  3. or download this
      $a=~ s/$a =~ s/^\w{3}(\s\s)\d/$1/ /; #3 partr substitute like sed, $
+1 with a space?