Kind of... It's called Benchmark.pm. It won't just read in a script and tell you what's fast and what's slow, but it is very helpful nonetheless.

Do a search here for 'use Benchmark;' and you'll find lots of examples.

s!!password!;y?sordid?binger?;y.paw.mrk.;
print chr 0x5b;print;print chr(0x5b+0x2);
[download]