in reply to extracting data

I'd go with [id://Corion]'s solution, but just for completeness, here's a solution using rindex... 
perl -ne "print substr($_, rindex($_, '/') + 1)" test.data

[download]
---
my name's not Keith, and I'm not reasonable.

In Section Seekers of Perl Wisdom