Select Code to Download

Ok...

This is my code:-

#!/usr/bin/perl

...

        exit();
}

I have tried to open and split the input data based on the new line. 
...
name:00 00 30
mobile:6575758