in reply to Regular expression with capture following a match

why capture? Simply delete unneeded parts: 
($everything_after_speed = $string) =~ s/.*speed\s+//s;

[download]
$\=~s;s*.*;q^|D9JYJ^^qq^\//\\\///^;ex;print

In Section Seekers of Perl Wisdom