Why wouldn't a regular expression be fast enough? How quick must it be?

With a little light reading and trial-and-error you might come up with something like this:

my $quick = '\one\two\three\four';
my $endpart = ($quick =~ m/([^\\]*)$/ ) ? $1 : '';
print qq|The end part is $endpart\n|;
[download]