daily pastebin goal
47%
SHARE
TWEET

Untitled

a guest Mar 8th, 2018 58 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl -w
  2. use utf8;
  3.  
  4. while(<>)
  5. {
  6.     chomp;
  7.     next if $_ eq "";
  8.     #next if $_ =~ /Note/;
  9.     my $count = 0;
  10.     $count++ while(s/^[0-9]+[. ][ ]?//);
  11.     $_ = "\t$_" while(--$count > 0);
  12.     print $_,"\n";
  13. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top