#!/usr/bin/perl


my $a = " -1";  

# remove trailing spaces 
warn "A: pos is ", pos $a;   
$a =~ /\G */gc;

warn "B: pos is ", pos $a;    
$a =~ /\G(?=-)/gc or die "C: failed";     

warn "D: pos is ", pos $a;
$a =~ /\G(?=-)/gc or die "E: failed";      

print "Z: passed";



##</code><code>##

 
A: pos is  at ./l2 line 7.
B: pos is 1 at ./l2 line 10.
D: pos is 1 at ./l2 line 13.
E: failed at ./l2 line 14.