$chem = reverse $_; $chem =~ s/^\S+//; $chem = reverse $chem; print $chem . "\n";

How about

($chem) = $chem =~ /(.*)\s/
[download]

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.