Help for this page
use warnings; use strict; ... if ($str =~ /^\w{4}$char\w$/){ print "matched\n"; }
/^[0-9A-Za-z]{4}$char[0-9A-Za-z]$/