use strict;
use warnings;

my $str = "  xyz";
$str =~ /^(\s*)/g;
$str =~ /\G(x)/g or die;
my $x = $1;
defined(pos($str)) or warn("pos() is undefined!\n");
print("this should be x:$x\n");