#!/usr/bin/perl -w

while (<>) {
  s/Kbit/000bit/g;
  print;
}
