Help for this page

Select Code to Download


  1. or download this
    my $string = "a_sample_string";
my $re = q[(?{ tr|_| | })(.*)]; 
# or my $re = some CGI parameter extraction
$string =~ m/$re/;
print $1;
  2. or download this
    --
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/