use Time::Piece;

my $date = "Mon Jan 25 15:19:50 GMT 2016";

my $date1 = Time::Piece->strptime($date, "%a %b %d %H:%M:%S %Z %Y");

# code you're interested in is below here

print join ' ', $date1->wdayname, $date1->monname, $date1->mday, $date1->year;