#!/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";