($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
(?:
[^<>"]+ # non-string, non-comment
|
"[^"\\]*(?:\\.[^"\\]*)*" # string
|
<[^>]*> # comment
)*
\z
}x;
##
##
int x = 10;
str y = "cool \" beans";
if (len(y) GREATER_THAN x) {
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);