C:\>perl -wle "$x = 'a:b:'; $x =~ s/:$//; print $x;"
a:b