Mega Code Archive

 

Categories / Perl / Language Basics

 

A simple program that assigns to $_ using STDIN

#!/usr/local/bin/perl  while (<STDIN>) {      ($first) = split (//, $_);      print ("$first\n");  }