test

#!/usr/bin/perl
$input = <STDIN>;
@var = split(':',$input);
$print = $var[0] . $var[1];
@new_data = split(//,$print); # splits it into chars :-)

if($new_data[0] eq "0"){
   $print = $new_data[1];
}
else
{
  $print = $new_data[0] . $new_data[1];
}
if($new_data[2] eq "0")
{
  $print = $print . $new_data[3];
}
else
{
  $print = $print . $new_data[2] . $new_data[3];
}
print($print);