use strict;
use warnings;

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