my $a = "/foo/bar.tif.pdf++";
my $b =~ $a;