$ perl -e 'my $string = "54W"; warn "1 true\n" if $string =~ /(?<=4)W/;'
1 true