Write a PERL script which takes a file named input.txt as an input and processes it. The input file has the following format: firstname lastname: pass/fail score%. A sample input file is:

$cat input.txt
John Do: pass 59%
Alice Do: fail 30%
Bob Do: PASS 80%

If the user has passed (i.e. has case insensitive \pass" in the 3rd field), then your code should print the login name (first letter of first name followed by the last name, all in lowercase) of the user and his/her corresponding score in fraction.

The output of your code on the above input should look like:
$perl final.pl
jdo: 0.59
bdo: 0.8