my $string = '54W';
if ($string =~ /(?=4)W/x) {
	warn "1 true\n";
}
if ($string =~ /(?=\d)W/x) {
	warn "2 true\n";
}
if ($string =~ /\dW/x) {
	warn "3 true\n";
}