#!perl
use warnings;
use strict;
use Data::Dumper;
use Tie::File;

my $filename = 'C:\Documents and Settings\Mike\Local Settings\Application Data\Google\Chrome\User Data\Default\Preferences';
tie my @lines, 'Tie::File', $filename or die $!;

# URLs
my @urls = qw/ 
  http://google.com
  http://www.google.com/reader
  https://mail.google.com/a/mikebaas.com
  https://mail.google.com/a/mikebaas.org
  https://mail.google.com/a/initselftech.com
  https://www.google.com/contacts/a/mikebaas.com/?tab=mC
  https://www.google.com/voice#inbox
  https://www.google.com/calendar/hosted/mikebaas.com/render?tab=mc
  https://mail.google.com/mail/?uip=1#inbox
  http://facebook.com/
  http://twitter.com/
  http://www.amazon.com/wishlist/
  http://owa.candelacorp.com/exchange/
/;

my @quoted_urls;
for (@urls) {
  push @quoted_urls, '"' . $_ . '"';
}
my $url_string = join(", ", @quoted_urls);

for (@lines) {
  if (/urls_to_restore_on_startup/) {
    $_ = '      "urls_to_restore_on_startup": [ ' . $url_string . ' ]' . "\n";
	last;
  }
}