Help for this page

Select Code to Download


  1. or download this
    if ( $str =~ /^Title: (.*)\s+Author: (.*)\s+ISBN: (.*)/ ) {
  my ($title, $author, $isbn) = ($1,$2,$3);
...
  print "<$title><$author><$isbn>";
  # Do more stuff...
}
  2. or download this
    $;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/