$string = "this is a test";
# ... code to point *FD at $string ...
while(<FD>) {
 print $_,"\n";
}