use warnings;
use 5.014;

'4.1.1,4.1.2' =~ /\Q4.1.2/ if @ARGV;
my $last = '';
my $name = 'OP Mover';
say '$name=\'', $name, '\' $last=',
	defined $last ? "'$last'" : 'undef',
	', $name=~/$last/i = ', ($name =~ /$last/i) ? 1 : 0;