Select Code to Download

($last_numbers) = $string =~ /(\d+)(?!\D*\d)/;

$last_numbers = scalar reverse(  # reverse the match
  reverse($string) =~            # reverse the input string
  /(\d+)/                        # reverse the regex
);

$CODE =~ m{
  \A
...
  )*
  \z
}x;

<this is a sample program> int x = 10;
<what a silly grammar> str y = "cool \" beans";
...
  chop(y,x);   
  print "I sliced 'y' down to ", x, " characters for you";
}

($last_comment) = $CODE =~ m{
  \A
...
  (?: "[^"\\]*(?:\\.[^"\\]*)*" | (?>[^"<>]*) )*
  \z
}x;

$last = scalar reverse(reverse($CODE) =~ m{
  \A
...
  (?: "(?:[^"\\]*.\\)*[^"\\]*" | (?>[^"<>]*) | >[^>]*< )*
  \z
}x);

($last_comment) = $CODE =~ m{
  (<[^>]*>)
  (?: "[^"\\]*(?:\\.[^"\\]*)*" | (?>[^"<>]*) )*
  \z
}x;

$last = scalar reverse(reverse($CODE) =~ m{
  \A
  (?: "(?:[^"\\]*.\\)*[^"\\]*" | (?>[^"<>]*) )*
  (>[^>]*<)
}x);