หมายเหตุ สังเกตุว่าต้องใส่บรรทัดนี้เข้าไปด้วยเพื่อเป็นการตัด character ที่ไม่พึงประสงค์ออกไปเช่น white space, newline ซึ่งจะติดมาด้วยจากการอ่านค่าของไฟล์แต่ละบรรทัด จริงๆใช้ chomp ก็ได้แต่ regular expression แบบนี้จะครอบคลุมกว่าCode:
#!/usr/bin/perl
open(FILE, "myfile.log") or die("Unable to open file");
# read file into an array
@data = <FILE>;
foreach $elem (@data) {
$elem =~ s/s+$//;
print "$cmdn";
}
close(FILE);
