in reply to perl regex referencing

$var =~ tr/a-z//s;
:)