use warnings;
use strict;

my $match, $pruned = split(/_/, $_);
print $match