1 2 3 4 5
print "Hello World!\n"; my $j_leg_sort = '--'; our $v_leg_sort = qr/^[\W|\w]{1,2}$/; # Valid Leg Sort print 'Invalid leg sort' if $j_leg_sort && ($j_leg_sort !~ $v_leg_sort);
1
Hello World!