Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Check for and remove a trailing backslash character
#!/usr/bin/perl
use warnings;
use strict;
my @lines = ();
while (<>) {
    chomp;
    if (s/\\$//) {   
        my $line = <>;
        $_.= $line, redo;   
    }
    push @lines, $_;
}
foreach (0..$#lines) {
    print "$_ : $lines[$_] \n";
}