#!/usr/bin/perl -w
# Output line and column numbers where "/" characters are found,
# without tab expansion.

use strict;

while( my $line = <> )
{
   for(my $x = 1; $line =~ s,^(.*?)/(.*)$,$2,s;)
   {
      $x += length($1);
      print "$ARGV:$.:${x}:: div\n";
      $x++;
   }
}